﻿Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Workflow.ComponentModel.Design

Namespace System.Workflow.Activities
    Friend NotInheritable Class StateMachineWorkflowDesignerTheme
        Inherits StateMachineTheme
        ' Methods
        Public Sub New(ByVal theme As WorkflowTheme)
            MyBase.New(theme)
            Me.ShowDropShadow = True
            Me.ConnectorStartCap = LineAnchor.DiamondAnchor
            Me.ConnectorEndCap = LineAnchor.ArrowAnchor
            Me.ForeColor = Color.FromArgb(&HFF, 0, 0, 0)
            Me.BorderColor = Color.FromArgb(&HFF, &H49, &H77, 180)
            Me.BorderStyle = DashStyle.Solid
            Me.BackColorStart = Color.FromArgb(0, 0, 0, 0)
            Me.BackColorEnd = Color.FromArgb(0, 0, 0, 0)
        End Sub


        ' Properties
        <Browsable(False)> _
        Public Overrides Property CompletedStateDesignerImagePath As String
            Get
                Return MyBase.CompletedStateDesignerImagePath
            End Get
            Set(ByVal value As String)
                MyBase.CompletedStateDesignerImagePath = value
            End Set
        End Property

        <Browsable(False)> _
        Public Overrides Property InitialStateDesignerImagePath As String
            Get
                Return MyBase.InitialStateDesignerImagePath
            End Get
            Set(ByVal value As String)
                MyBase.InitialStateDesignerImagePath = value
            End Set
        End Property

    End Class
End Namespace

